home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbackup.arc / BACKUP.PRG next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  54 lines
  1. * BACKUP.CMD  05/07/82
  2. * WARREN MCKENNA
  3. * PROGRAM TO COPY DATA FILES AND PROGRAM FILES TO ANOTHER DISK
  4.  
  5. ERASE
  6. * SET TALK OFF
  7. @ 2,25 SAY '  BACKUP MENU '
  8. @ 5,15 SAY '(1) COPY DATA FILES ONLY '
  9. @ 7,15 SAY '(2) COPY ENTIRE DISK  '
  10. @ 9,15 SAY '(3) FORMAT A NEW DISK '
  11. @ 11,15 SAY ' HIT ENTER TO RETURN TO MAIN MENU'
  12. @ 23,0
  13.       ACCEPT 'ENTER OPTION ' TO ANSWER
  14.  
  15. DO CASE
  16.     CASE ANSWER = "1"
  17.      ERASE
  18.      @ 12,12 SAY 'MOUNT SOURCE DISK IN DRIVE B AND DESTINATION DISK IN DRIVE C'
  19.       WAIT
  20.       QUIT TO "PIP C:=B:*.DBF[V]","DBASE BACKUP"
  21.     CASE ANSWER = "2"
  22.      ERASE
  23.      @ 12,12 SAY 'MOUNT SOURCE DISK IN DRIVE A AND DESTINATION DISK IN DRIVE B'
  24.       WAIT
  25.       QUIT TO "PIP B:=A:*.*[OV]","DBASE BACKUP"
  26.     CASE ANSWER = "3"
  27.       ERASE
  28.       @ 12,12 SAY ' MOUNT BLANK DISK ON DRIVE B '
  29.       WAIT
  30.       QUIT TO "FORMAT","DBASE BACKUP"
  31.   OTHERWISE
  32.    DO A
  33. ENDCASE
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  IN DRIVE C'
  53.       WAIT
  54.